-- stack: in.3
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 14
-- first background id: 2780
-- card count: 14
-- first card id: 13860
-- list block id: 2485
-- print block id: 36708
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 66048 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on closeStack
  visual iris close
  pass closeStack
end closeStack

on openCard
  if the short name of this card is not "Instruction" then
    put "Card no." && max(1,the number of this cd - 14) && "of" && the number of cds - 14 into bg fld "Status"
    setButtonOutlines
  end if
  pass openCard
end openCard

on newBackground type,makeNew
  lock screen
  push cd
  go next cd of bg type
  if makeNew then doMenu "New Card"
  unlock screen
  if makeNew then tabKey
end newBackground

on showComments
  lock screen
  show bg btn "Comments"
  show bg btn "commentsGoAway"
  show bg fld "comments"
  unlock screen with barn door open
  select before text of bg fld "comments"
end showComments

on hideComments
  if the visible of bg fld "comments" then
    lock screen
    hide bg fld "comments"
    hide bg btn "Comments"
    hide bg btn "commentsGoAway"
    unlock screen with barn door close
  end if
end hideComments

on showOtherFields
  lock screen
  show bg btn "Other Fields"
  show bg btn "otherFieldsGoAway"
  show bg fld "otherFields"
  unlock screen with barn door open
  select before text of bg fld "otherFields"
end showOtherFields

on hideOtherFields
  if the visible of bg fld "otherFields" then
    lock screen
    hide bg fld "otherFields"
    hide bg btn "Other Fields"
    hide bg btn "otherFieldsGoAway"
    unlock screen with barn door close
  end if
end hideOtherFields

on CheckRequired stop
  global dontCheckFields
  if dontCheckFields then exit CheckRequired
  if bg fld 1 is not empty and bg fld "otherFields" is empty then
    repeat with i=2 to stop
      if bg fld i is empty then
        beep
        answer "You should fill in all the required fields." with "OK"
        exit CheckRequired
      end if
    end repeat
  end if
end CheckRequired

on setButtonOutlines
  if bg fld "Comments" is not empty
  then set the style of bg button "Show Comments" to rectangle
else set the style of bg button "Show Comments" to shadow
if bg fld "otherFields" is not empty
then set the style of bg button "Other Fields…" to rectangle
else set the style of bg button "Other Fields…" to shadow
end setButtonOutlines

on NewItem self
  put the cmdKey is up and the optionKey is up and the shiftKey is up into makeNew
  if makeNew
  then put "(Add New:" into title
else put "(Go to Next:" into title
get PopUpMenu(self, title&",Article,Book,Booklet,InBook,InCollection", "InProceedings,Manual,MastersThesis,Misc,PhDThesis", "Proceedings,TechReport,Unpublished")
if item 1 of it is empty then exit NewItem
NewBackground (item 1 of it),makeNew
end NewItem

on ChangeStyle myStyle
  lock screen
  get PopUpMenu(myStyle, "(Convert To:,Article,Book,Booklet,InBook,InCollection", "InProceedings,Manual,MastersThesis,Misc,PhDThesis", "Proceedings,TechReport,Unpublished")
  if item 1 of it is empty or item 2 of it is myStyle then exit ChangeStyle
  set cursor to watch
  put the ID of this card into fromID
  NewBackground (item 1 of it),true
  put the ID of this card into toID
  CopyCardFields fromID,toID
  doMenu "Delete Card"
  go toID
  unlock screen
end ChangeStyle